3.79 \(\int x^3 (a+b x^3) \cosh (c+d x) \, dx\)

Optimal. Leaf size=154 \[ -\frac{3 a x^2 \cosh (c+d x)}{d^2}+\frac{6 a x \sinh (c+d x)}{d^3}-\frac{6 a \cosh (c+d x)}{d^4}+\frac{a x^3 \sinh (c+d x)}{d}+\frac{30 b x^4 \sinh (c+d x)}{d^3}+\frac{360 b x^2 \sinh (c+d x)}{d^5}-\frac{6 b x^5 \cosh (c+d x)}{d^2}-\frac{120 b x^3 \cosh (c+d x)}{d^4}+\frac{720 b \sinh (c+d x)}{d^7}-\frac{720 b x \cosh (c+d x)}{d^6}+\frac{b x^6 \sinh (c+d x)}{d} \]

[Out]

(-6*a*Cosh[c + d*x])/d^4 - (720*b*x*Cosh[c + d*x])/d^6 - (3*a*x^2*Cosh[c + d*x])/d^2 - (120*b*x^3*Cosh[c + d*x
])/d^4 - (6*b*x^5*Cosh[c + d*x])/d^2 + (720*b*Sinh[c + d*x])/d^7 + (6*a*x*Sinh[c + d*x])/d^3 + (360*b*x^2*Sinh
[c + d*x])/d^5 + (a*x^3*Sinh[c + d*x])/d + (30*b*x^4*Sinh[c + d*x])/d^3 + (b*x^6*Sinh[c + d*x])/d

________________________________________________________________________________________

Rubi [A]  time = 0.297123, antiderivative size = 154, normalized size of antiderivative = 1., number of steps used = 13, number of rules used = 4, integrand size = 17, \(\frac{\text{number of rules}}{\text{integrand size}}\) = 0.235, Rules used = {5287, 3296, 2638, 2637} \[ -\frac{3 a x^2 \cosh (c+d x)}{d^2}+\frac{6 a x \sinh (c+d x)}{d^3}-\frac{6 a \cosh (c+d x)}{d^4}+\frac{a x^3 \sinh (c+d x)}{d}+\frac{30 b x^4 \sinh (c+d x)}{d^3}+\frac{360 b x^2 \sinh (c+d x)}{d^5}-\frac{6 b x^5 \cosh (c+d x)}{d^2}-\frac{120 b x^3 \cosh (c+d x)}{d^4}+\frac{720 b \sinh (c+d x)}{d^7}-\frac{720 b x \cosh (c+d x)}{d^6}+\frac{b x^6 \sinh (c+d x)}{d} \]

Antiderivative was successfully verified.

[In]

Int[x^3*(a + b*x^3)*Cosh[c + d*x],x]

[Out]

(-6*a*Cosh[c + d*x])/d^4 - (720*b*x*Cosh[c + d*x])/d^6 - (3*a*x^2*Cosh[c + d*x])/d^2 - (120*b*x^3*Cosh[c + d*x
])/d^4 - (6*b*x^5*Cosh[c + d*x])/d^2 + (720*b*Sinh[c + d*x])/d^7 + (6*a*x*Sinh[c + d*x])/d^3 + (360*b*x^2*Sinh
[c + d*x])/d^5 + (a*x^3*Sinh[c + d*x])/d + (30*b*x^4*Sinh[c + d*x])/d^3 + (b*x^6*Sinh[c + d*x])/d

Rule 5287

Int[Cosh[(c_.) + (d_.)*(x_)]*((e_.)*(x_))^(m_.)*((a_) + (b_.)*(x_)^(n_))^(p_.), x_Symbol] :> Int[ExpandIntegra
nd[Cosh[c + d*x], (e*x)^m*(a + b*x^n)^p, x], x] /; FreeQ[{a, b, c, d, e, m, n}, x] && IGtQ[p, 0]

Rule 3296

Int[((c_.) + (d_.)*(x_))^(m_.)*sin[(e_.) + (f_.)*(x_)], x_Symbol] :> -Simp[((c + d*x)^m*Cos[e + f*x])/f, x] +
Dist[(d*m)/f, Int[(c + d*x)^(m - 1)*Cos[e + f*x], x], x] /; FreeQ[{c, d, e, f}, x] && GtQ[m, 0]

Rule 2638

Int[sin[(c_.) + (d_.)*(x_)], x_Symbol] :> -Simp[Cos[c + d*x]/d, x] /; FreeQ[{c, d}, x]

Rule 2637

Int[sin[Pi/2 + (c_.) + (d_.)*(x_)], x_Symbol] :> Simp[Sin[c + d*x]/d, x] /; FreeQ[{c, d}, x]

Rubi steps

\begin{align*} \int x^3 \left (a+b x^3\right ) \cosh (c+d x) \, dx &=\int \left (a x^3 \cosh (c+d x)+b x^6 \cosh (c+d x)\right ) \, dx\\ &=a \int x^3 \cosh (c+d x) \, dx+b \int x^6 \cosh (c+d x) \, dx\\ &=\frac{a x^3 \sinh (c+d x)}{d}+\frac{b x^6 \sinh (c+d x)}{d}-\frac{(3 a) \int x^2 \sinh (c+d x) \, dx}{d}-\frac{(6 b) \int x^5 \sinh (c+d x) \, dx}{d}\\ &=-\frac{3 a x^2 \cosh (c+d x)}{d^2}-\frac{6 b x^5 \cosh (c+d x)}{d^2}+\frac{a x^3 \sinh (c+d x)}{d}+\frac{b x^6 \sinh (c+d x)}{d}+\frac{(6 a) \int x \cosh (c+d x) \, dx}{d^2}+\frac{(30 b) \int x^4 \cosh (c+d x) \, dx}{d^2}\\ &=-\frac{3 a x^2 \cosh (c+d x)}{d^2}-\frac{6 b x^5 \cosh (c+d x)}{d^2}+\frac{6 a x \sinh (c+d x)}{d^3}+\frac{a x^3 \sinh (c+d x)}{d}+\frac{30 b x^4 \sinh (c+d x)}{d^3}+\frac{b x^6 \sinh (c+d x)}{d}-\frac{(6 a) \int \sinh (c+d x) \, dx}{d^3}-\frac{(120 b) \int x^3 \sinh (c+d x) \, dx}{d^3}\\ &=-\frac{6 a \cosh (c+d x)}{d^4}-\frac{3 a x^2 \cosh (c+d x)}{d^2}-\frac{120 b x^3 \cosh (c+d x)}{d^4}-\frac{6 b x^5 \cosh (c+d x)}{d^2}+\frac{6 a x \sinh (c+d x)}{d^3}+\frac{a x^3 \sinh (c+d x)}{d}+\frac{30 b x^4 \sinh (c+d x)}{d^3}+\frac{b x^6 \sinh (c+d x)}{d}+\frac{(360 b) \int x^2 \cosh (c+d x) \, dx}{d^4}\\ &=-\frac{6 a \cosh (c+d x)}{d^4}-\frac{3 a x^2 \cosh (c+d x)}{d^2}-\frac{120 b x^3 \cosh (c+d x)}{d^4}-\frac{6 b x^5 \cosh (c+d x)}{d^2}+\frac{6 a x \sinh (c+d x)}{d^3}+\frac{360 b x^2 \sinh (c+d x)}{d^5}+\frac{a x^3 \sinh (c+d x)}{d}+\frac{30 b x^4 \sinh (c+d x)}{d^3}+\frac{b x^6 \sinh (c+d x)}{d}-\frac{(720 b) \int x \sinh (c+d x) \, dx}{d^5}\\ &=-\frac{6 a \cosh (c+d x)}{d^4}-\frac{720 b x \cosh (c+d x)}{d^6}-\frac{3 a x^2 \cosh (c+d x)}{d^2}-\frac{120 b x^3 \cosh (c+d x)}{d^4}-\frac{6 b x^5 \cosh (c+d x)}{d^2}+\frac{6 a x \sinh (c+d x)}{d^3}+\frac{360 b x^2 \sinh (c+d x)}{d^5}+\frac{a x^3 \sinh (c+d x)}{d}+\frac{30 b x^4 \sinh (c+d x)}{d^3}+\frac{b x^6 \sinh (c+d x)}{d}+\frac{(720 b) \int \cosh (c+d x) \, dx}{d^6}\\ &=-\frac{6 a \cosh (c+d x)}{d^4}-\frac{720 b x \cosh (c+d x)}{d^6}-\frac{3 a x^2 \cosh (c+d x)}{d^2}-\frac{120 b x^3 \cosh (c+d x)}{d^4}-\frac{6 b x^5 \cosh (c+d x)}{d^2}+\frac{720 b \sinh (c+d x)}{d^7}+\frac{6 a x \sinh (c+d x)}{d^3}+\frac{360 b x^2 \sinh (c+d x)}{d^5}+\frac{a x^3 \sinh (c+d x)}{d}+\frac{30 b x^4 \sinh (c+d x)}{d^3}+\frac{b x^6 \sinh (c+d x)}{d}\\ \end{align*}

Mathematica [A]  time = 0.160777, size = 100, normalized size = 0.65 \[ \frac{\left (a d^4 x \left (d^2 x^2+6\right )+b \left (d^6 x^6+30 d^4 x^4+360 d^2 x^2+720\right )\right ) \sinh (c+d x)-3 d \left (a d^2 \left (d^2 x^2+2\right )+2 b x \left (d^4 x^4+20 d^2 x^2+120\right )\right ) \cosh (c+d x)}{d^7} \]

Antiderivative was successfully verified.

[In]

Integrate[x^3*(a + b*x^3)*Cosh[c + d*x],x]

[Out]

(-3*d*(a*d^2*(2 + d^2*x^2) + 2*b*x*(120 + 20*d^2*x^2 + d^4*x^4))*Cosh[c + d*x] + (a*d^4*x*(6 + d^2*x^2) + b*(7
20 + 360*d^2*x^2 + 30*d^4*x^4 + d^6*x^6))*Sinh[c + d*x])/d^7

________________________________________________________________________________________

Maple [B]  time = 0.008, size = 551, normalized size = 3.6 \begin{align*} \text{result too large to display} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(x^3*(b*x^3+a)*cosh(d*x+c),x)

[Out]

1/d^4*(1/d^3*b*((d*x+c)^6*sinh(d*x+c)-6*(d*x+c)^5*cosh(d*x+c)+30*(d*x+c)^4*sinh(d*x+c)-120*(d*x+c)^3*cosh(d*x+
c)+360*(d*x+c)^2*sinh(d*x+c)-720*(d*x+c)*cosh(d*x+c)+720*sinh(d*x+c))-6/d^3*b*c*((d*x+c)^5*sinh(d*x+c)-5*(d*x+
c)^4*cosh(d*x+c)+20*(d*x+c)^3*sinh(d*x+c)-60*(d*x+c)^2*cosh(d*x+c)+120*(d*x+c)*sinh(d*x+c)-120*cosh(d*x+c))+15
/d^3*b*c^2*((d*x+c)^4*sinh(d*x+c)-4*(d*x+c)^3*cosh(d*x+c)+12*(d*x+c)^2*sinh(d*x+c)-24*(d*x+c)*cosh(d*x+c)+24*s
inh(d*x+c))-20/d^3*b*c^3*((d*x+c)^3*sinh(d*x+c)-3*(d*x+c)^2*cosh(d*x+c)+6*(d*x+c)*sinh(d*x+c)-6*cosh(d*x+c))+1
5/d^3*b*c^4*((d*x+c)^2*sinh(d*x+c)-2*(d*x+c)*cosh(d*x+c)+2*sinh(d*x+c))-6/d^3*b*c^5*((d*x+c)*sinh(d*x+c)-cosh(
d*x+c))+1/d^3*b*c^6*sinh(d*x+c)+a*((d*x+c)^3*sinh(d*x+c)-3*(d*x+c)^2*cosh(d*x+c)+6*(d*x+c)*sinh(d*x+c)-6*cosh(
d*x+c))-3*a*c*((d*x+c)^2*sinh(d*x+c)-2*(d*x+c)*cosh(d*x+c)+2*sinh(d*x+c))+3*a*c^2*((d*x+c)*sinh(d*x+c)-cosh(d*
x+c))-a*c^3*sinh(d*x+c))

________________________________________________________________________________________

Maxima [A]  time = 1.04636, size = 362, normalized size = 2.35 \begin{align*} -\frac{1}{56} \, d{\left (\frac{7 \,{\left (d^{4} x^{4} e^{c} - 4 \, d^{3} x^{3} e^{c} + 12 \, d^{2} x^{2} e^{c} - 24 \, d x e^{c} + 24 \, e^{c}\right )} a e^{\left (d x\right )}}{d^{5}} + \frac{7 \,{\left (d^{4} x^{4} + 4 \, d^{3} x^{3} + 12 \, d^{2} x^{2} + 24 \, d x + 24\right )} a e^{\left (-d x - c\right )}}{d^{5}} + \frac{4 \,{\left (d^{7} x^{7} e^{c} - 7 \, d^{6} x^{6} e^{c} + 42 \, d^{5} x^{5} e^{c} - 210 \, d^{4} x^{4} e^{c} + 840 \, d^{3} x^{3} e^{c} - 2520 \, d^{2} x^{2} e^{c} + 5040 \, d x e^{c} - 5040 \, e^{c}\right )} b e^{\left (d x\right )}}{d^{8}} + \frac{4 \,{\left (d^{7} x^{7} + 7 \, d^{6} x^{6} + 42 \, d^{5} x^{5} + 210 \, d^{4} x^{4} + 840 \, d^{3} x^{3} + 2520 \, d^{2} x^{2} + 5040 \, d x + 5040\right )} b e^{\left (-d x - c\right )}}{d^{8}}\right )} + \frac{1}{28} \,{\left (4 \, b x^{7} + 7 \, a x^{4}\right )} \cosh \left (d x + c\right ) \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x^3*(b*x^3+a)*cosh(d*x+c),x, algorithm="maxima")

[Out]

-1/56*d*(7*(d^4*x^4*e^c - 4*d^3*x^3*e^c + 12*d^2*x^2*e^c - 24*d*x*e^c + 24*e^c)*a*e^(d*x)/d^5 + 7*(d^4*x^4 + 4
*d^3*x^3 + 12*d^2*x^2 + 24*d*x + 24)*a*e^(-d*x - c)/d^5 + 4*(d^7*x^7*e^c - 7*d^6*x^6*e^c + 42*d^5*x^5*e^c - 21
0*d^4*x^4*e^c + 840*d^3*x^3*e^c - 2520*d^2*x^2*e^c + 5040*d*x*e^c - 5040*e^c)*b*e^(d*x)/d^8 + 4*(d^7*x^7 + 7*d
^6*x^6 + 42*d^5*x^5 + 210*d^4*x^4 + 840*d^3*x^3 + 2520*d^2*x^2 + 5040*d*x + 5040)*b*e^(-d*x - c)/d^8) + 1/28*(
4*b*x^7 + 7*a*x^4)*cosh(d*x + c)

________________________________________________________________________________________

Fricas [A]  time = 1.76403, size = 240, normalized size = 1.56 \begin{align*} -\frac{3 \,{\left (2 \, b d^{5} x^{5} + a d^{5} x^{2} + 40 \, b d^{3} x^{3} + 2 \, a d^{3} + 240 \, b d x\right )} \cosh \left (d x + c\right ) -{\left (b d^{6} x^{6} + a d^{6} x^{3} + 30 \, b d^{4} x^{4} + 6 \, a d^{4} x + 360 \, b d^{2} x^{2} + 720 \, b\right )} \sinh \left (d x + c\right )}{d^{7}} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x^3*(b*x^3+a)*cosh(d*x+c),x, algorithm="fricas")

[Out]

-(3*(2*b*d^5*x^5 + a*d^5*x^2 + 40*b*d^3*x^3 + 2*a*d^3 + 240*b*d*x)*cosh(d*x + c) - (b*d^6*x^6 + a*d^6*x^3 + 30
*b*d^4*x^4 + 6*a*d^4*x + 360*b*d^2*x^2 + 720*b)*sinh(d*x + c))/d^7

________________________________________________________________________________________

Sympy [A]  time = 9.67527, size = 185, normalized size = 1.2 \begin{align*} \begin{cases} \frac{a x^{3} \sinh{\left (c + d x \right )}}{d} - \frac{3 a x^{2} \cosh{\left (c + d x \right )}}{d^{2}} + \frac{6 a x \sinh{\left (c + d x \right )}}{d^{3}} - \frac{6 a \cosh{\left (c + d x \right )}}{d^{4}} + \frac{b x^{6} \sinh{\left (c + d x \right )}}{d} - \frac{6 b x^{5} \cosh{\left (c + d x \right )}}{d^{2}} + \frac{30 b x^{4} \sinh{\left (c + d x \right )}}{d^{3}} - \frac{120 b x^{3} \cosh{\left (c + d x \right )}}{d^{4}} + \frac{360 b x^{2} \sinh{\left (c + d x \right )}}{d^{5}} - \frac{720 b x \cosh{\left (c + d x \right )}}{d^{6}} + \frac{720 b \sinh{\left (c + d x \right )}}{d^{7}} & \text{for}\: d \neq 0 \\\left (\frac{a x^{4}}{4} + \frac{b x^{7}}{7}\right ) \cosh{\left (c \right )} & \text{otherwise} \end{cases} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x**3*(b*x**3+a)*cosh(d*x+c),x)

[Out]

Piecewise((a*x**3*sinh(c + d*x)/d - 3*a*x**2*cosh(c + d*x)/d**2 + 6*a*x*sinh(c + d*x)/d**3 - 6*a*cosh(c + d*x)
/d**4 + b*x**6*sinh(c + d*x)/d - 6*b*x**5*cosh(c + d*x)/d**2 + 30*b*x**4*sinh(c + d*x)/d**3 - 120*b*x**3*cosh(
c + d*x)/d**4 + 360*b*x**2*sinh(c + d*x)/d**5 - 720*b*x*cosh(c + d*x)/d**6 + 720*b*sinh(c + d*x)/d**7, Ne(d, 0
)), ((a*x**4/4 + b*x**7/7)*cosh(c), True))

________________________________________________________________________________________

Giac [A]  time = 1.14007, size = 259, normalized size = 1.68 \begin{align*} \frac{{\left (b d^{6} x^{6} - 6 \, b d^{5} x^{5} + a d^{6} x^{3} + 30 \, b d^{4} x^{4} - 3 \, a d^{5} x^{2} - 120 \, b d^{3} x^{3} + 6 \, a d^{4} x + 360 \, b d^{2} x^{2} - 6 \, a d^{3} - 720 \, b d x + 720 \, b\right )} e^{\left (d x + c\right )}}{2 \, d^{7}} - \frac{{\left (b d^{6} x^{6} + 6 \, b d^{5} x^{5} + a d^{6} x^{3} + 30 \, b d^{4} x^{4} + 3 \, a d^{5} x^{2} + 120 \, b d^{3} x^{3} + 6 \, a d^{4} x + 360 \, b d^{2} x^{2} + 6 \, a d^{3} + 720 \, b d x + 720 \, b\right )} e^{\left (-d x - c\right )}}{2 \, d^{7}} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x^3*(b*x^3+a)*cosh(d*x+c),x, algorithm="giac")

[Out]

1/2*(b*d^6*x^6 - 6*b*d^5*x^5 + a*d^6*x^3 + 30*b*d^4*x^4 - 3*a*d^5*x^2 - 120*b*d^3*x^3 + 6*a*d^4*x + 360*b*d^2*
x^2 - 6*a*d^3 - 720*b*d*x + 720*b)*e^(d*x + c)/d^7 - 1/2*(b*d^6*x^6 + 6*b*d^5*x^5 + a*d^6*x^3 + 30*b*d^4*x^4 +
 3*a*d^5*x^2 + 120*b*d^3*x^3 + 6*a*d^4*x + 360*b*d^2*x^2 + 6*a*d^3 + 720*b*d*x + 720*b)*e^(-d*x - c)/d^7